home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_tkcvs.idb / usr / freeware / lib / tkcvs / logcanvas.tcl.z / logcanvas.tcl
Encoding:
Text File  |  1999-04-16  |  17.6 KB  |  567 lines
  1. #
  2. # TCL Library for tkCVS
  3. #
  4.  
  5. #
  6. # $Id: logcanvas.tcl,v 1.13 1995/11/13 05:16:55 davide Exp $
  7. # 
  8. # Contains procedures used for the log canvas for tkCVS.
  9. #
  10.  
  11. #
  12. # Globals used in drawing canvases
  13. #
  14.  
  15. # Height and width to draw boxes
  16. set cvscanv(boxx) 60
  17. set cvscanv(boxy) 30
  18. # Gaps between boxes
  19. set cvscanv(gapx) [expr $cvscanv(boxx) + 10]
  20. set cvscanv(gapy) [expr $cvscanv(boxy) + 10]
  21. # Indent at top left of canvas
  22. set cvscanv(indx) 20
  23. set cvscanv(indy) 20
  24. # Static type variables used while drawing on the canvas.
  25. set cvscanv(nextx) $cvscanv(indx)
  26. set cvscanv(nexty) $cvscanv(indy)
  27. set cvscanv(indents) 0
  28. set cvscanv(xhigh) [expr $cvscanv(boxx) + $cvscanv(indx)]
  29. set cvscanv(yhigh) [expr $cvscanv(boxy) + $cvscanv(indy)]
  30. set cvscanv(xlow) 0
  31. set cvscanv(ylow) 0
  32.  
  33. proc new_logcanvas {localfile filelog} {
  34. #
  35. # Creates a new log canvas.  filelog must be the output of a cvs
  36. # log or rlog command.  If localfile is not "no file" then it is
  37. # the file name in the local directory that this applies to.
  38. #
  39.   global cvs
  40.   global cvscanv
  41.   global tagvalues
  42.  
  43.   static {canvasnum 0}
  44.  
  45.   # Make the canvas
  46.  
  47.   incr canvasnum
  48.   set logcanvas ".logcanvas$canvasnum"
  49.   toplevel $logcanvas
  50.  
  51.   frame $logcanvas.up -relief groove -border 2
  52.   frame $logcanvas.up.left
  53.   frame $logcanvas.up.right
  54.   frame $logcanvas.up1 -relief groove -border 2
  55.   frame $logcanvas.up1.left
  56.   frame $logcanvas.up1.right
  57.   frame $logcanvas.up2 -relief groove -border 2
  58.   frame $logcanvas.up2.left
  59.   frame $logcanvas.up2.right
  60.   frame $logcanvas.down -relief groove -border 2
  61.  
  62.   pack $logcanvas.up -side top -fill x
  63.   pack $logcanvas.up.left -side left -fill both
  64.   pack $logcanvas.up.right -side left -fill both -expand 1
  65.   pack $logcanvas.up1 -side top -fill x
  66.   pack $logcanvas.up1.left -side left -fill both
  67.   pack $logcanvas.up1.right -side left -fill both -expand 1
  68.   pack $logcanvas.up2 -side top -fill x
  69.   pack $logcanvas.up2.left -side left -fill both
  70.   pack $logcanvas.up2.right -side left -fill both -expand 1
  71.   pack $logcanvas.down -side bottom -fill x
  72.  
  73.   label $logcanvas.lfname -anchor w -text "RCS File Name"
  74.   entry $logcanvas.tfname
  75.   # This is a hidden entry that stores the local file name.
  76.   entry $logcanvas.tlocalfile
  77.   $logcanvas.tlocalfile delete 0 end
  78.   $logcanvas.tlocalfile insert end $localfile
  79.  
  80.   label $logcanvas.lvers1 -anchor w -text "Version A"
  81.   label $logcanvas.lwho1 -anchor w -text "Created by"
  82.   label $logcanvas.ldate1 -anchor w -text "Date"
  83.   label $logcanvas.lcomment1 -anchor w -text "Comment"
  84.  
  85.   entry $logcanvas.tvers1 -relief sunken
  86.   label $logcanvas.twho1 -anchor w -text "--"
  87.   label $logcanvas.tdate1 -anchor w -text "--"
  88.   text  $logcanvas.tcomment1 -height 5 -width 75
  89.  
  90.   label $logcanvas.lvers2 -anchor w -text "Version B"
  91.   label $logcanvas.lwho2 -anchor w -text "Created by"
  92.   label $logcanvas.ldate2 -anchor w -text "Date"
  93.   label $logcanvas.lcomment2 -anchor w -text "Comment"
  94.  
  95.   entry $logcanvas.tvers2 -relief sunken
  96.   label $logcanvas.twho2 -anchor w -text "--"
  97.   label $logcanvas.tdate2 -anchor w -text "--"
  98.   text  $logcanvas.tcomment2 -height 5 -width 75
  99.  
  100.   pack $logcanvas.lfname \
  101.     -in $logcanvas.up.left \
  102.     -side top -fill x -pady 2
  103.   pack $logcanvas.tfname \
  104.     -in $logcanvas.up.right \
  105.     -side top -fill x -pady 0
  106.   pack $logcanvas.lvers1 $logcanvas.lwho1 $logcanvas.ldate1 $logcanvas.lcomment1 \
  107.     -in $logcanvas.up1.left \
  108.     -side top -fill x -pady 0
  109.   pack $logcanvas.tvers1 $logcanvas.twho1 $logcanvas.tdate1 $logcanvas.tcomment1 \
  110.     -in $logcanvas.up1.right \
  111.     -side top -fill x -pady 0
  112.   pack $logcanvas.lvers2 $logcanvas.lwho2 $logcanvas.ldate2 $logcanvas.lcomment2 \
  113.     -in $logcanvas.up2.left \
  114.     -side top -fill x -pady 0
  115.   pack $logcanvas.tvers2 $logcanvas.twho2 $logcanvas.tdate2 $logcanvas.tcomment2 \
  116.     -in $logcanvas.up2.right \
  117.     -side top -fill x -pady 0
  118.  
  119.   canvas $logcanvas.canvas -relief sunken -border 2 \
  120.     -yscrollcommand "$logcanvas.yscroll set" \
  121.     -xscrollcommand "$logcanvas.xscroll set"
  122.   scrollbar $logcanvas.xscroll -relief sunken -orient horizontal \
  123.     -command "$logcanvas.canvas xview"
  124.   scrollbar $logcanvas.yscroll -relief sunken \
  125.     -command "$logcanvas.canvas yview"
  126.  
  127.   #
  128.   # Create buttons
  129.   #
  130.  
  131.   button $logcanvas.help -text "Help" \
  132.     -command log_browser
  133.   button $logcanvas.view -text "View" \
  134.     -command "logcanvas_view $logcanvas"
  135.   button $logcanvas.diff -text "Diff" \
  136.     -command "logcanvas_diff $logcanvas"
  137.   pack $logcanvas.help $logcanvas.view $logcanvas.diff \
  138.     -in $logcanvas.down -side left \
  139.     -ipadx 2 -ipady 2 -padx 4 -pady 4 -fill both -expand 1
  140.   if {$localfile != "no file"} {
  141.     button $logcanvas.join -text "Merge Branch to Head" \
  142.       -command "logcanvas_join $localfile $logcanvas"
  143.     button $logcanvas.delta -text "Merge Changes to Head" \
  144.       -command "logcanvas_delta $localfile $logcanvas"
  145.     pack $logcanvas.join $logcanvas.delta \
  146.       -in $logcanvas.down -side left \
  147.       -ipadx 2 -ipady 2 -padx 4 -pady 4 -fill both -expand 1
  148.   }
  149.   button $logcanvas.viewtags -text "View Tags" \
  150.     -command "nop"
  151.   button $logcanvas.quit -text "Quit" \
  152.     -command "destroy $logcanvas"
  153.   pack $logcanvas.viewtags $logcanvas.quit \
  154.     -in $logcanvas.down -side left \
  155.     -ipadx 2 -ipady 2 -padx 4 -pady 4 -fill both -expand 1
  156.  
  157.   #
  158.   # Put the canvas on to the display.
  159.   #
  160.  
  161.   pack $logcanvas.xscroll -side bottom -fill x -padx 2 -pady 2
  162.   pack $logcanvas.yscroll -side right -fill y -padx 2 -pady 2
  163.   pack $logcanvas.canvas -fill both -expand 1
  164.  
  165.   logcanvas_clear $logcanvas
  166.  
  167.   #
  168.   # Window manager stuff.
  169.   #
  170.  
  171.   wm title $logcanvas "CVS Log Browser"
  172.   wm minsize $logcanvas 1 1
  173.  
  174.   # Draw the log onto the canvas.
  175.   # Start by splitting the log up and parsing it using a simple
  176.   # state machine.
  177.  
  178.   set loglist [split $filelog "\n"]
  179.   set logstate "searching"
  180.   set logstate "rcsfile"
  181.   foreach logline $loglist {
  182.     switch -exact -- $logstate {
  183.       "rcsfile" {
  184.         # Look for the first text line which should give the file name.
  185.         set fileline [split $logline]
  186.         if {[lindex $fileline 0] == "RCS"} {
  187.           $logcanvas.tfname delete 0 end
  188.           $logcanvas.tfname insert end [lindex $fileline 2]
  189.           set logstate "tags"
  190.           set taglist ""
  191.           if [array exists tagvalues] {
  192.             foreach item [array names tagvalues] {
  193.               set tagvalues($item) ""
  194.             }
  195.           }
  196.           continue
  197.         }
  198.       }
  199.       "tags" {
  200.         # Any line with a tab leader is a tag
  201.         if { [string index $logline 0] == "\t" } {
  202.           set taglist "$taglist$logline\n"
  203.           set tagitems [split $logline ":"]
  204.           set tagname [string trim [lindex $tagitems 0]]
  205.           set tagrevision [string trim [lindex $tagitems 1]]
  206.           set tagvalues($tagname) $tagrevision
  207.           #puts "Tag $tagname is on revision $tagrevision"
  208.         } else {
  209.           if {$logline == "description:"} {
  210.             # No more tags after this point
  211.             $logcanvas.viewtags configure \
  212.               -command "view_output Tags \"$taglist\""
  213.             set logstate "searching"
  214.             continue
  215.           }
  216.           if {$logline == "----------------------------"} {
  217.             # Oops, missed something.
  218.             $logcanvas.viewtags configure \
  219.               -command "view_output Tags \"$taglist\""
  220.             set logstate "revision"
  221.             continue
  222.           }
  223.         }
  224.       }
  225.       "searching" {
  226.         # Look for the line that starts a revision message.
  227.         if {$logline == "----------------------------"} {
  228.           set logstate "revision"
  229.           continue
  230.         }
  231.       }
  232.       "revision" {
  233.         # Look for a revision number line
  234.         set revline [split $logline]
  235.         set revnum [lindex $revline 1]
  236.         set logstate "date"
  237.       }
  238.       "date" {
  239.         # Look for a date line.  This also has the name of the author.
  240.         set dateline [split $logline]
  241.         set revdate [lindex $dateline 1]
  242.         # set revtime [lindex $dateline 2]
  243.         # set revtime [string range $revtime 0 [expr [string length $revtime] - 2]]
  244.         set revwho  [lindex $dateline 5]
  245.         set revwho  [string range $revwho 0 [expr [string length $revwho] - 2]]
  246.         set logstate "logmessage"
  247.         set revcomment ""
  248.       }
  249.       "logmessage" {
  250.         # Read the log message which follows the date line.
  251.         if {$logline == "----------------------------"} {
  252.           set logstate "revision"
  253.           # Draw the revision box on the canvas.
  254.           # puts "Revision number $revnum by $revwho on $revdate at $revtime"
  255.           logcanvas_draw_box $logcanvas $revnum $revwho $revdate $revcomment
  256.           continue
  257.         } elseif {$logline == "============================================================================="} {
  258.           set logstate "terminated"
  259.           # Draw the revision box on the canvas.
  260.           # puts "Revision number $revnum by $revwho on $revdate at $revtime"
  261.           logcanvas_draw_box $logcanvas $revnum $revwho $revdate $revcomment
  262.           continue
  263.         }
  264.         # Process a revision log line
  265.         regsub -all "\"" $logline "'" newline
  266.         set revcomment "$revcomment$newline\n"
  267.       }
  268.       "terminated" {
  269.         # ignore any further lines
  270.         continue
  271.       }
  272.     }
  273.   }
  274.  
  275.   # End of log file processing.
  276. }
  277.  
  278. proc logcanvas_clear {logcanvas} {
  279. #
  280. # Clears the canvas and resets globals ready to re-draw.
  281. #
  282.   global cvscanv
  283.  
  284.   set cvscanv(nextx) $cvscanv(indx)
  285.   set cvscanv(nexty) $cvscanv(indy)
  286.   set cvscanv(indents) 0
  287.   set cvscanv(branches) {}
  288.   set cvscanv(xhigh) [expr $cvscanv(boxx) + $cvscanv(indx)]
  289.   set cvscanv(yhigh) [expr $cvscanv(boxy) + $cvscanv(indy)]
  290.   # $logcanvas.canvas delete all
  291. }
  292.  
  293. proc logcanvas_box_colour {revnum} {
  294. #
  295. # Determines what colour the box should be.
  296. #
  297.   global cvscfg
  298.   global tagvalues
  299.  
  300.   set return_colour black
  301.  
  302.   if [array exists tagvalues] {
  303.     foreach item [array names tagvalues] {
  304.       if [string match $tagvalues($item) $revnum] {
  305.         if [info exists cvscfg(boxcolour,$item)] {
  306.           set return_colour $cvscfg(boxcolour,$item)
  307.         }
  308.       }
  309.     }
  310.   }
  311.   #puts "colour of $revnum is $return_colour"
  312.   return $return_colour
  313. }
  314.  
  315. proc logcanvas_dot_colour {revnum} {
  316. #
  317. # Determines what colour dots in the box should be.
  318. #
  319.   global cvscfg
  320.   global tagvalues
  321.  
  322.   set return_colour {}
  323.  
  324.   if [array exists tagvalues] {
  325.     foreach item [array names tagvalues] {
  326.       if [string match $tagvalues($item) $revnum] {
  327.         if [info exists cvscfg(dotcolour,$item)] {
  328.           lappend return_colour $cvscfg(dotcolour,$item)
  329.           #puts "Found a dot coloured $cvscfg(dotcolour,$item) on tag $item for revision $revnum"
  330.         }
  331.       }
  332.     }
  333.   }
  334.   return $return_colour
  335. }
  336.  
  337. proc logcanvas_draw_box {logcanvas revnum revwho revdate revcomment} {
  338. #
  339. # Draws a box containing a revision of a file.
  340. #
  341.   global cvscanv
  342.  
  343.   set versions [split $revnum "."]
  344.   set numvers [llength $versions]
  345.  
  346.   switch -exact -- $numvers {
  347.     2 {
  348.       # Remember where the new box is going.
  349.       set cvscanv(posx$revnum) $cvscanv(nextx)
  350.       set cvscanv(posy$revnum) $cvscanv(nexty)
  351.       # draw a box
  352.       logcanvas_rectangle $logcanvas $revnum $revwho $revdate $revcomment \
  353.         $cvscanv(nextx) $cvscanv(nexty)
  354.       # Position the next box.
  355.       set cvscanv(nextx) $cvscanv(indx)
  356.       set cvscanv(nexty) [expr $cvscanv(nexty) + $cvscanv(gapy)]
  357.     }
  358.     4 {
  359.       # Have we seen this branch before?
  360.       set branchid [join [lrange $versions 0 2] "."]
  361.       if {[lsearch -exact $cvscanv(branches) $branchid] == -1} {
  362.         # No
  363.         lappend cvscanv(branches) $branchid
  364.         incr cvscanv(indents)
  365.       }
  366.       # x.y.z.u  -- version x.y must already exist, so find out where it is.
  367.       set backrevnum [join [lrange $versions 0 1] "."]
  368.       set thisx [expr $cvscanv(gapx) * $cvscanv(indents) + \
  369.         $cvscanv(indx) ]
  370.       set thisy [expr $cvscanv(posy$backrevnum) - \
  371.         $cvscanv(gapy) * [lindex $versions 3]]
  372.       # Remember where the new box is going.
  373.       set cvscanv(posx$revnum) $thisx
  374.       set cvscanv(posy$revnum) $thisy
  375.       # Draw the box
  376.       logcanvas_rectangle $logcanvas $revnum $revwho $revdate $revcomment \
  377.         $thisx $thisy
  378.       # Draw a connecting line.
  379.       if {[lindex $versions [expr $numvers - 1]] == "1"} {
  380.         $logcanvas.canvas create line \
  381.           [expr $cvscanv(boxx) / 2 + $thisx] \
  382.           [expr $cvscanv(boxy) + $thisy] \
  383.           [expr $cvscanv(boxx) + $cvscanv(posx$backrevnum)] \
  384.           [expr $cvscanv(boxy) / 2 + $cvscanv(posy$backrevnum)]
  385.       }
  386.     }
  387.     # Yes I know this is ugly -- just a cut and paste of the previous
  388.     # section -- fix this soon.
  389.     6 {
  390.       # Have we seen this branch before?
  391.       set branchid [join [lrange $versions 0 4] "."]
  392.       if {[lsearch -exact $cvscanv(branches) $branchid] == -1} {
  393.         # No
  394.         lappend cvscanv(branches) $branchid
  395.         incr cvscanv(indents)
  396.       }
  397.       # x.y.z.u  -- version x.y must already exist, so find out where it is.
  398.       set backrevnum [join [lrange $versions 0 3] "."]
  399.       set thisx [expr $cvscanv(gapx) * $cvscanv(indents) + \
  400.         $cvscanv(indx) ]
  401.       set thisy [expr $cvscanv(posy$backrevnum) - \
  402.         $cvscanv(gapy) * [lindex $versions 5]]
  403.       # Remember where the new box is going.
  404.       set cvscanv(posx$revnum) $thisx
  405.       set cvscanv(posy$revnum) $thisy
  406.       # Draw the box
  407.       logcanvas_rectangle $logcanvas $revnum $revwho $revdate $revcomment \
  408.         $thisx $thisy
  409.       # Draw a connecting line.
  410.       if {[lindex $versions [expr $numvers - 1]] == "1"} {
  411.         $logcanvas.canvas create line \
  412.           [expr $cvscanv(boxx) / 2 + $thisx] \
  413.           [expr $cvscanv(boxy) + $thisy] \
  414.           [expr $cvscanv(boxx) + $cvscanv(posx$backrevnum)] \
  415.           [expr $cvscanv(boxy) / 2 + $cvscanv(posy$backrevnum)]
  416.       }
  417.     }
  418.   }
  419.  
  420. }
  421.  
  422. proc logcanvas_rectangle {logcanvas revnum revwho revdate revcomment x y} {
  423. #
  424. # Breaks out some of the code from the logcanvas_draw_box procedure.
  425. #
  426.   global cvscanv
  427.  
  428.   set versions [split $revnum "."]
  429.   set numvers [llength $versions]
  430.  
  431.   # draw a box
  432.   $logcanvas.canvas create rectangle \
  433.     $x $y [expr $x + $cvscanv(boxx)] [expr $y + $cvscanv(boxy)] \
  434.     -width 3 \
  435.     -outline [logcanvas_box_colour $revnum] \
  436.     -tags v$revnum
  437.  
  438.   # Make sure the scrolling region is big enough
  439.   if {$cvscanv(xlow) > $x} {
  440.     set cvscanv(xlow) $x
  441.   }
  442.   if {$cvscanv(ylow) > $y} {
  443.     set cvscanv(ylow) $y
  444.   }
  445.   if {$cvscanv(xhigh) < [expr $x + $cvscanv(boxx)]} {
  446.     set cvscanv(xhigh) [expr $x + $cvscanv(boxx) + 10]
  447.   }
  448.   if {$cvscanv(yhigh) < [expr $y + $cvscanv(boxy)]} {
  449.     set cvscanv(yhigh) [expr $y + $cvscanv(boxy) + 10]
  450.   }
  451.   $logcanvas.canvas configure \
  452.     -scrollregion "$cvscanv(xlow) $cvscanv(ylow) $cvscanv(xhigh) $cvscanv(yhigh)"
  453.  
  454.   # Put the version number in the box
  455.   $logcanvas.canvas create text \
  456.     [expr $x + 4] [expr $y + 2] \
  457.     -anchor nw -text $revnum  \
  458.     -fill [logcanvas_box_colour $revnum] \
  459.     -tags v$revnum
  460.   $logcanvas.canvas create text \
  461.     [expr $x + 4] [expr $y + 14] \
  462.     -anchor nw -text $revwho \
  463.     -fill [logcanvas_box_colour $revnum] \
  464.     -tags v$revnum
  465.  
  466.   # Put some dots in the box if necessary.
  467.   set dotnum 0
  468.   foreach dotcolour [logcanvas_dot_colour $revnum] {
  469.     set dotx [expr $x + $cvscanv(boxx) - 8]
  470.     set doty [expr $dotnum * 6 + $y + 3]
  471.     #puts "Drawing a dot at $dotx $doty coloured $dotcolour"
  472.     $logcanvas.canvas create oval \
  473.       $dotx $doty [expr $dotx + 5] [expr $doty + 5] \
  474.       -fill $dotcolour \
  475.       -outline ""
  476.     incr dotnum
  477.   }
  478.       
  479.   # Bind to the tag.
  480.   $logcanvas.canvas bind v$revnum <ButtonPress-1> \
  481.     "$logcanvas.tvers1 delete 0 end
  482.      $logcanvas.tvers1 insert end $revnum
  483.      $logcanvas.twho1 configure -text $revwho
  484.      $logcanvas.tdate1 configure -text $revdate
  485.      $logcanvas.tcomment1 delete 1.0 end
  486.      $logcanvas.tcomment1 insert end \"$revcomment\""
  487.   $logcanvas.canvas bind v$revnum <ButtonPress-3> \
  488.     "$logcanvas.tvers2 delete 0 end
  489.      $logcanvas.tvers2 insert end $revnum
  490.      $logcanvas.twho2 configure -text $revwho
  491.      $logcanvas.tdate2 configure -text $revdate
  492.      $logcanvas.tcomment2 delete 1.0 end
  493.      $logcanvas.tcomment2 insert end \"$revcomment\""
  494.   # Draw a connecting line.  Up if X.0, nowhere if X.1, down if > X.1
  495.   # This should work for most version starting points.
  496.   if {[lindex $versions [expr $numvers - 1]] == "0"} {
  497.     $logcanvas.canvas create line \
  498.       [expr $cvscanv(boxx) / 2 + $x] \
  499.       [expr $y - $cvscanv(gapy) + $cvscanv(boxy)] \
  500.       [expr $cvscanv(boxx) / 2 + $x] \
  501.       [expr $y]
  502.   } elseif {[lindex $versions [expr $numvers - 1]] != "1"} {
  503.     $logcanvas.canvas create line \
  504.       [expr $cvscanv(boxx) / 2 + $x] \
  505.       [expr $cvscanv(boxy) + $y] \
  506.       [expr $cvscanv(boxx) / 2 + $x] \
  507.       [expr $cvscanv(gapy) + $y]
  508.   }
  509. }
  510.  
  511. proc logcanvas_view {logcanvas} {
  512. #
  513. # Views the selected version.
  514. #
  515.   set ver1 [$logcanvas.tvers1 get]
  516.   set localfile [$logcanvas.tlocalfile get]
  517.  
  518.   if {$localfile != "no file"} {
  519.     cvs_view_r $ver1 $localfile
  520.   } else {
  521.     set fname [$logcanvas.tfname get]
  522.     rcs_fileview $fname $ver1
  523.   }
  524. }
  525.  
  526. proc logcanvas_diff {logcanvas} {
  527. #
  528. # Diffs two versions.
  529. #
  530.   set ver1 [$logcanvas.tvers1 get]
  531.   set ver2 [$logcanvas.tvers2 get]
  532.   set localfile [$logcanvas.tlocalfile get]
  533.  
  534.   if {$localfile != "no file"} {
  535.     cvs_diff_r $ver1 $ver2 $localfile
  536.   } else {
  537.     set fname [$logcanvas.tfname get]
  538.     rcs_filediff $fname $ver1 $ver2
  539.   }
  540. }
  541.  
  542. proc logcanvas_join {localfile logcanvas} {
  543. #
  544. # Joins a branch version to the head version.
  545. #
  546.   set ver1 [$logcanvas.tvers1 get]
  547.   set versions [split $ver1 "."]
  548.   set numvers [llength $versions]
  549.   if {$numvers < 4} {
  550.     cvserror "Please select a branch version for this function!"
  551.     return 1
  552.   }
  553.  
  554.   cvs_join $localfile $ver1
  555. }
  556.  
  557. proc logcanvas_delta {localfile logcanvas} {
  558. #
  559. # Merges changes in the delta between two versions to the head
  560. # version.
  561. #
  562.   set ver1 [$logcanvas.tvers1 get]
  563.   set ver2 [$logcanvas.tvers2 get]
  564.  
  565.   cvs_delta $localfile $ver1 $ver2
  566. }
  567.